home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 61 / Quick PC 61.iso / I386 / WMS.CAB / pubpoint_media.asp < prev    next >
Encoding:
Text File  |  2003-02-21  |  19.9 KB  |  518 lines
  1. ∩╗┐<%@ Language=VBScript CODEPAGE=65001 %>
  2. <!--#include file="include/wmsConstants.inc"-->
  3. <!--#include file="include/wmsLocStrings.inc"-->
  4. <!--#include file="include/wmsCommon.inc"-->
  5. <!--#include file="include/wmsHeader.inc"-->
  6. <!--#include file="include/wmsServerHash.inc"-->
  7. <!--#include file="include/wmsconnect.inc"-->
  8. <!--#include file="include/wmsError.inc"-->
  9. <!--#include file="include/wmsToolbar.inc"-->
  10. <!--#include file="include/wmsHelp.inc"-->
  11. <!--#include file="include/wmsPageBanner.inc"-->
  12. <!--#include file="include/wmsTabs.inc"-->
  13. <%
  14. '+-------------------------------------------------------------------------
  15. '
  16. '  Microsoft Windows Media
  17. '  Copyright (C) Microsoft Corporation. All rights reserved.
  18. '
  19. '  File:       PubPoint_Media.asp
  20. '
  21. '  Contents:
  22. '
  23. '--------------------------------------------------------------------------
  24.  
  25. BeginErrorHandling
  26. ConnectToServer
  27. ConnectToPubPoint
  28.  
  29. Dim bBroadcastPubPoint
  30. Dim bBroadcastPPStarted
  31. Dim bBroadcastPPArchiving
  32. Dim strPubPointPath
  33. Dim bError
  34. bError = FALSE
  35.  
  36. strPubPointPath = ""
  37. bBroadcastPPStarted = FALSE
  38.  
  39. if( empty = g_objPubPoint ) then
  40.     Server.Transfer( "pubpoint_collection.asp" )
  41. end if
  42.  
  43. Dim bArrivedFromServerSideTransfer
  44. bArrivedFromServerSideTransfer = Session( "bUpdateTreeView" ) and ( 0 = Len( qs("error") ) )
  45. if( bArrivedFromServerSideTransfer ) then
  46.     Session( "bUpdateTreeView" ) = FALSE
  47.     Response.Redirect( "pubpoint_media.asp?server=" & g_strQueryStringServer & "&bUpdateTree=true&ppID=" & g_strPubPointID )
  48.     Response.Flush
  49. end if
  50.  
  51. on error resume next
  52.  
  53. bBroadcastPPArchiving = FALSE
  54.  
  55. dwPPType = g_objPubPoint.Type
  56. if WMS_PUBLISHING_POINT_TYPE_BROADCAST = dwPPType then
  57.     bBroadcastPubPoint = TRUE
  58.     dwPPStatus = g_objPubPoint.BroadcastStatus
  59.     bBroadcastPPStarted = ( 0 <> ( WMS_BROADCAST_PUBLISHING_POINT_STARTED and dwPPStatus ) ) or _
  60.                           ( 0 <> ( WMS_BROADCAST_PUBLISHING_POINT_STARTED_WITHOUT_DATA and dwPPStatus ) )
  61.     bBroadcastPPArchiving = ( 0 <> ( WMS_BROADCAST_PUBLISHING_POINT_ARCHIVING and dwPPStatus ) )
  62. else
  63.     bBroadcastPubPoint = FALSE
  64. end if
  65.  
  66. bAllowingConnections = g_objPubPoint.AllowClientsToConnect
  67. bDrawWarning = FALSE
  68.  
  69. szPubPointHiddenPath = TrimFileColon( SafeUnescape( GetPostOrQsVal("HiddenPath") ) )
  70. strPubPointPath = TrimFileColon( SafeUnescape( GetPostOrQsVal("Path") ) )
  71.  
  72. if( Len( szPubPointHiddenPath ) = Len( strPubPointPath ) ) then
  73.     strPubPointPath = szPubPointHiddenPath
  74. end if
  75.  
  76. strPubPointPath = Left( strPubPointPath, MAX_PATH )
  77.     ' use a do-while-false structure to break out upon first error    
  78.     do
  79.         if( FALSE = PPPathIsLegal( strPubPointPath ) ) then 
  80.             err.Raise( -1 )
  81.             err.Description = CStr( L_INVALIDCHARSINPATH_TEXT )
  82.             bError = ErrorDetected ( "Path" )
  83.             Session( "PageReloadedToDisplayError" ) = 1
  84.             Exit Do
  85.         end if
  86.         
  87.         if( 0 < Len( strPubPointPath ) )then
  88.             g_objPubPoint.path = strPubPointPath
  89.             if not ErrorDetected( "PubPointSourceURL" ) then
  90.                 Response.Redirect( "pubpoint_media.asp?server=" & g_strQueryStringServer & "&ppID=" & g_strPubPointID )
  91.                 Response.end
  92.             end if
  93.         elseif( "" = qs("s") ) and ( "" = qs("op") ) then
  94.             Session( "ErrorNumber" ) = 0
  95.             Err.Clear
  96.         end if
  97.  
  98.     Loop Until TRUE
  99.  
  100. if ( Err.number <> 0 ) and ( 0 <> Session( "ErrorNumber" ) ) then
  101.     bError = TRUE
  102. end if
  103.  
  104. if( 0 = Len( strPubPointPath ) ) then
  105.     strPubPointPath = TrimFileColon( g_objPubPoint.Path )
  106.     strPubPointPath = TrimFileColon( g_objPubPoint.Path )
  107. '    strPubPointPath = Server.HTMLEncode( strPubPointPath )
  108. '    strPubPointPath = RemoveSpecifiedChars( strPubPointPath, REGEXP_ILLEGAL_PPSRC_CHARS )
  109. end if
  110.  
  111. '/////////////////////////////////////////////////////////////////////
  112. Function PPPathIsLegal( strPubPointPath )
  113.     PPPathIsLegal = TRUE
  114.     Dim regEx
  115.     Set regEx = New RegExp
  116.     regEx.Pattern = "/;|\^|\'|\<|\>|\`|\f|\n|\r/gi"
  117.     regEx.IgnoreCase = TRUE
  118.     regEx.Global = TRUE
  119.     regEx.Multiline = TRUE
  120.     if( TRUE = regEx.Test( strPubPointPath ) ) then
  121.         PPPathIsLegal = FALSE
  122.         Exit Function
  123.     end if
  124. End Function
  125.  
  126. '////////////////////////////////////////////////////////////////
  127. Function GetFormStr( szKey )
  128.     GetFormStr = trim( CStr( posting( szKey ) ) )
  129. End Function
  130.  
  131. '////////////////////////////////////////////////////////////////
  132. Function GetPostOrQsVal( szKey )
  133.     Dim szVal
  134.     szVal = GetFormStr( szKey )
  135.  
  136.     if( 0 = Len( szVal ) ) then
  137.         szVal = CStr( qs( szKey ) )
  138.     end if
  139.  
  140.     GetPostOrQsVal = szVal
  141. End Function
  142.  
  143. '////////////////////////////////////////////////////////////////
  144. Function UnescapeFilePathSlashes( szUrl )
  145.     UnescapeFilePathSlashes = Replace( szUrl, "\", "\\" )
  146. End Function
  147.  
  148. '/////////////////////////////////////////////////////////////////////////////////////
  149. Function CanArchiveBeEnabled()
  150.     on error resume next
  151.  
  152.     if( IsEmpty( g_objPubPoint ) ) then
  153.         CanArchiveBeEnabled = FALSE
  154.         Exit Function
  155.     end if
  156.  
  157.     Dim objPluginCollection
  158.     Dim objPlugin
  159.     Dim strSubCategory
  160.     Dim lPluginCount
  161.     Dim i
  162.     Dim strCurPluginSubcategory
  163.  
  164.     Set objPluginCollection = g_objPubPoint.BroadcastDataSinks
  165.     strSubCategory = ARCHIVER_SUBCAT
  166.  
  167.     if( nothing <> objPluginCollection ) then
  168.         lPluginCount = objPluginCollection.Count
  169.     else
  170.         lPluginCount = 0
  171.     end if
  172.  
  173.     Do While ( i < lPluginCount )
  174.         Set objPlugin = objPluginCollection( i )
  175.         strCurPluginSubcategory = objPlugin.Properties( "SubCategory" )
  176.         if( ( 0 < Len( strCurPluginSubcategory ) ) and ( 0 = StrComp( strCurPluginSubcategory, ARCHIVER_SUBCAT, vbTextCompare ) ) ) then
  177.             if( WMS_PLUGIN_ENABLED and objPlugin.Status ) then
  178.                 CanArchiveBeEnabled = TRUE
  179.                 Exit Function
  180.             end if
  181.         end if
  182.         i = i + 1
  183.     Loop
  184.  
  185.     CanArchiveBeEnabled = FALSE
  186. End Function
  187.  
  188. %>
  189. <% WriteHTMLHeader( g_strDecodedServerName ) %>
  190. <link rel="stylesheet" type="text/css" href="<%= Session( "cssName" ) %>">
  191. <script language="JavaScript" src="include/WMSCommon.js"></script>
  192. <script language=JavaScript>
  193. <!--
  194. /*@cc_on @*/
  195. <% WriteCommonJSUtils %>
  196.  
  197. var g_bPathAlerted = false;
  198. var g_bPushAlerted = false;
  199.  
  200. ///////////////////////////////////////////////////////////////////////
  201. function ValidatePath()
  202. {
  203.     <% jsTRY %>
  204. <% if TRUE = bBroadcastPPStarted then %>
  205.     document.forms.mainForm.change.disabled = false;
  206.     return( false );
  207. <% end if %>
  208.  
  209.     var szPath = new String( document.forms.mainForm.path.value );
  210.     var szIllegalChars = /;|\^|\'|\<|\>|\`|\f|\n|\r/gi;
  211.     var szPathUpperCase = null;
  212.  
  213.     // perform left trim
  214.     szPath = szPath.replace( /^\s+/, "" );
  215.  
  216.     // perform right trim
  217.     szPath = szPath.replace( /\s+$/, "" );
  218.  
  219.     if( -1 != szPath.search( szIllegalChars ) )
  220.     {
  221.         document.forms.mainForm.path.style.color = "#ff0000";
  222.         document.forms.mainForm.change.disabled = true;
  223.         window.status = "<%= L_INVALIDCHARSINPATH_TEXT %>";
  224.         if( ! g_bPathAlerted )
  225.         {
  226.             g_bPathAlerted = true;
  227.             window.alert( "<%= L_INVALIDCHARSINPATH_TEXT %>" );
  228.         }
  229.         return;
  230.     }
  231.     
  232.     window.status = "";    
  233.     document.forms.mainForm.path.style.color = "#000000";
  234.     szPathUpperCase = new String( szPath.toUpperCase() );
  235.     if( ( 0 < szPath.length ) && ( szPathUpperCase != "<%= UCase( Server.HTMLEncode( UnescapeFilePathSlashes( strPubPointPath ) ) ) %>" ) )
  236.     {
  237.         document.forms.mainForm.change.disabled = false;
  238.     }
  239.     else
  240.     {
  241.         document.forms.mainForm.change.disabled = true;        
  242.     }   
  243.     <% if( WMS_PUBLISHING_POINT_TYPE_ON_DEMAND = dwPPType ) then %>
  244.     szPathPrefix = szPath.slice( 0, 5 );
  245.  
  246.     if( szPathPrefix == "push:" )
  247.     {
  248.         document.forms.mainForm.path.style.color = "#ff0000";
  249.         document.forms.mainForm.change.disabled = true;
  250.         
  251.         window.status = "<%= RemoveDangerousCharacters( L_ODPPSRCCHANGETOPUSH_TEXT ) %>";
  252.         if( ! g_bPushAlerted )
  253.         {
  254.             g_bPushAlerted = true;
  255.             window.alert( "<%= RemoveDangerousCharacters( L_ODPPSRCCHANGETOPUSH_TEXT ) %>" );
  256.         }
  257.         return( false );
  258.     }
  259.     
  260.     document.forms.mainForm.path.style.color = "#000000";
  261.     document.forms.mainForm.change.disabled = false;
  262.     window.status = "";
  263.     <% end if %>
  264.     
  265.     return( true );
  266.     <% jsCATCH %>
  267. }
  268.  
  269. ///////////////////////////////////////////////////////////////////////
  270. function ValidateInput()
  271. {
  272.     <% jsTRY %>
  273.     var bRetVal;
  274.     
  275.     bRetVal = ValidatePath();
  276.  
  277.     if( ! bRetVal || document.mainForm.change.disabled )
  278.     {
  279.         event.cancelBubble=1;
  280.         return false;
  281.     }
  282.  
  283.     strPath = new String( document.forms.mainForm.path.value );
  284.     strPath = SafeEscape( strPath );
  285.     document.forms.mainForm.HiddenPath.value = strPath;
  286.     <% jsCATCH %>
  287. }
  288. -->
  289. </script>
  290. </head>
  291. <body bgcolor="#FFFFFF" topmargin="0" leftmargin="0" rightmargin="0" marginwidth="0" marginheight="0" <% if ( "" <> qs("bUpdateTree") ) then %>onLoad="JavaScript:UpdateTreeView();"<% end if %> oncontextmenu="JavaScript:event.cancelBubble=true;return false;">
  292. <%
  293. ' Draw the page banner and tabs
  294. DrawPPNameBanner L_MEDIATABTITLE_TEXT
  295. %>
  296. <br>
  297. <form name="mainForm" method="post" action="<%= RemoveDangerousCharacters( g_strQueryString ) %>" onsubmit="JavaScript:return( ValidateInput() );" AUTOCOMPLETE="OFF">
  298. <input type="hidden" name="server" value="<%= RemoveSpecifiedChars( g_strQueryStringServer, "\f|\n|\r|<|>" ) %>">
  299. <input type="hidden" name="ppID" value="<%= RemoveSpecifiedChars( g_strPubPointID, "\f|\n|\r|<|>" ) %>">
  300. <input type="hidden" name="HiddenPath" value="">
  301. <table bgcolor="#FFFFFF" width="100%" cellspacing="5" border="0">
  302.     <tr>
  303.         <td>
  304.         <table width="100%" cellspacing="0" cellpadding="0" border="0">
  305.         <tr>
  306.             <td>
  307.                 <span class="helptext">
  308.                     <div class="helptext"><%= Server.HTMLEncode( L_MEDIATABHELPSTRING_TEXT ) %></div>
  309.                 </span><br>
  310.             </td>
  311.         </tr>
  312.         </table>
  313.         </td>
  314.         <tr>
  315.             <td colspan=4>
  316.                     <span class=subheader>
  317.                     <%
  318.                     RenderWithErrorCheck Server.HTMLEncode( L_PUBLISHINGPOINTPATHCOLON_TEXT ), "mainForm"
  319.                     %>
  320.                     </span>
  321.                     <br>
  322.                     <input <% if bBroadcastPPStarted then %> disabled <% end if %> 
  323.                         size="<% if brMSIE = g_dwBrowserType then %>60<% else %>80<% end if %>"
  324.                         type="text" 
  325.                         name="path" 
  326.                         maxlength="<%= Server.HTMLEncode( MAX_PATH ) %>"
  327.                         value="<%= Server.HTMLEncode( strPubPointPath ) %>" 
  328.                         onChange="JavaScript:ValidatePath()" 
  329.                         onPaste="JavaScript:ValidatePath()" 
  330.                         onKeyDown="JavaScript:ValidatePath()" 
  331.                         onKeyUp="JavaScript:ValidatePath()" 
  332.                         tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %> 
  333.                         AUTOCOMPLETE="OFF" >
  334.                     <input 
  335.                         type="submit" 
  336.                         value="<%= Server.HTMLEncode( L_APPLYBUTTON_TEXT ) %>" 
  337.                         id="change" 
  338.                         name="change" 
  339.                         align="left"
  340.                         tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %> 
  341.                         disabled>
  342.             </td>
  343.         </tr>
  344.         <tr>
  345.  
  346.         <td>
  347.             <p>
  348.                 <table width="<%= STDTABLEWIDTH %>" border="0">
  349.                 <tr>
  350.                     <td colspan=4>
  351.                         <div class=header>
  352.                         <%' L_PLAYLISTEDITORUNAVAILABLE_TEXT %>
  353.                         </div>
  354.                     </td>
  355.                 </tr>
  356.             </table>
  357.             <p>
  358.         </td>
  359.  
  360.           <tr>
  361.               <td colspan=5> <br><!-- <img src="img/hr.gif" width="<%= STDTABLEWIDTH %>" height=2> --></td>
  362.           </tr>
  363.           <tr>
  364.           <td>
  365.           <p>
  366.             <%
  367.             Dim dwLastButton
  368.  
  369.             dwLastButton = 0
  370.  
  371.             if bBroadcastPubPoint then
  372.                 ToolbarButtonText ( dwLastButton ) = L_BUTTONSTART_TEXT
  373.                 if( bBroadcastPPStarted ) then
  374.                     ToolbarButtonImage( dwLastButton ) = IMAGE_PP_STARTG
  375.                     ToolbarButtonLink ( dwLastButton ) = ""
  376.                 else
  377.                     ToolbarButtonImage( dwLastButton ) = IMAGE_PP_START
  378.                     ToolbarButtonLink ( dwLastButton ) = "pp_action.asp?server=" & g_strQueryStringServer & "&ppID=" & g_strPubPointID & "&op=start&referrer=pubpoint_media.asp"
  379.                 end if
  380.                 ToolbarButtonAltText( dwLastButton ) = L_STARTTHEPUBPOINT_TEXT
  381.  
  382.                 dwLastButton = dwLastButton + 1
  383.                 ToolbarButtonText ( dwLastButton ) = L_BUTTONSTOP_TEXT
  384.                 if( bBroadcastPPStarted ) then
  385.                     ToolbarButtonImage( dwLastButton ) = IMAGE_STOP
  386.                     ToolbarButtonLink ( dwLastButton ) = "pp_action.asp?server=" & g_strQueryStringServer & "&ppID=" & g_strPubPointID & "&op=stop&referrer=pubpoint_media.asp"
  387.                 else
  388.                     ToolbarButtonImage( dwLastButton ) = IMAGE_STOPG
  389.                     ToolbarButtonLink ( dwLastButton ) = ""
  390.                 end if
  391.                 ToolbarButtonAltText( dwLastButton ) = L_STOPTHEPUBPOINT_TEXT
  392.                 dwLastButton = dwLastButton + 1
  393.                 
  394.                 if( bBroadcastPPStarted ) then
  395.                     if( bBroadcastPPArchiving ) then
  396.                         ToolbarButtonText ( dwLastButton ) = L_BUTTONSTARTARCHIVE_TEXT
  397.                         ToolbarButtonImage( dwLastButton ) = IMAGE_PP_STARTRECORDG
  398.                         ToolbarButtonLink ( dwLastButton ) = ""
  399.                         ToolbarButtonAltText( dwLastButton ) = L_STARTARCHIVE_TEXT
  400.                         dwLastButton = dwLastButton + 1
  401.  
  402.                         ToolbarButtonText ( dwLastButton ) = L_BUTTONSTOPARCHIVE_TEXT
  403.                         ToolbarButtonImage( dwLastButton ) = IMAGE_PP_STOPRECORD
  404.                         ToolbarButtonLink ( dwLastButton ) = "pp_action.asp?server=" & g_strQueryStringServer & "&ppID=" & g_strPubPointID & "&op=stopArchiving&referrer=pubpoint_media.asp"
  405.                         ToolbarButtonAltText( dwLastButton ) = L_STOPARCHIVE_TEXT
  406.                         dwLastButton = dwLastButton + 1
  407.                     elseif( FALSE = CanArchiveBeEnabled() ) then
  408.                         ToolbarButtonText ( dwLastButton ) = L_BUTTONSTARTARCHIVE_TEXT
  409.                         ToolbarButtonImage( dwLastButton ) = IMAGE_PP_STARTRECORDG
  410.                         ToolbarButtonLink ( dwLastButton ) = ""
  411.                         ToolbarButtonAltText( dwLastButton ) = L_STARTARCHIVE_TEXT
  412.                         dwLastButton = dwLastButton + 1
  413.  
  414.                         ToolbarButtonText ( dwLastButton ) = L_BUTTONSTOPARCHIVE_TEXT
  415.                         ToolbarButtonImage( dwLastButton ) = IMAGE_PP_STOPRECORDG
  416.                         ToolbarButtonLink ( dwLastButton ) = ""
  417.                         ToolbarButtonAltText( dwLastButton ) = L_STOPARCHIVE_TEXT
  418.                         dwLastButton = dwLastButton + 1
  419.                     else
  420.                         ToolbarButtonText ( dwLastButton ) = L_BUTTONSTARTARCHIVE_TEXT
  421.                         ToolbarButtonImage( dwLastButton ) = IMAGE_PP_STARTRECORD
  422.                         ToolbarButtonLink ( dwLastButton ) = "pp_action.asp?server=" & g_strQueryStringServer & "&ppID=" & g_strPubPointID & "&op=startArchiving&referrer=pubpoint_media.asp"
  423.                         ToolbarButtonAltText( dwLastButton ) = L_STARTARCHIVE_TEXT
  424.                         dwLastButton = dwLastButton + 1
  425.  
  426.                         ToolbarButtonText ( dwLastButton ) = L_BUTTONSTOPARCHIVE_TEXT
  427.                         ToolbarButtonImage( dwLastButton ) = IMAGE_PP_STOPRECORDG
  428.                         ToolbarButtonLink ( dwLastButton ) = ""
  429.                         ToolbarButtonAltText( dwLastButton ) = L_STOPARCHIVE_TEXT
  430.                         dwLastButton = dwLastButton + 1
  431.                     end if
  432.                 else
  433.                     ToolbarButtonText ( dwLastButton ) = L_BUTTONSTARTARCHIVE_TEXT
  434.                     ToolbarButtonImage( dwLastButton ) = IMAGE_PP_STARTRECORDG
  435.                     ToolbarButtonLink ( dwLastButton ) = ""
  436.                     ToolbarButtonAltText( dwLastButton ) = L_STARTARCHIVE_TEXT
  437.                     dwLastButton = dwLastButton + 1
  438.  
  439.                     ToolbarButtonText ( dwLastButton ) = L_BUTTONSTOPARCHIVE_TEXT
  440.                     ToolbarButtonImage( dwLastButton ) = IMAGE_PP_STOPRECORDG
  441.                     ToolbarButtonLink ( dwLastButton ) = ""
  442.                     ToolbarButtonAltText( dwLastButton ) = L_STOPARCHIVE_TEXT
  443.                     dwLastButton = dwLastButton + 1
  444.                 end if
  445.                 
  446.             end if
  447.  
  448.             ToolbarButtonText ( dwLastButton ) = L_BUTTONALLOWNEWCONNECTIONS_TEXT
  449.             if( FALSE = bAllowingConnections )then
  450.                 ToolbarButtonImage( dwLastButton ) = IMAGE_ALLOWCONNECTIONS
  451.                 ToolbarButtonLink ( dwLastButton ) = "pp_action.asp?server=" & g_strQueryStringServer & "&ppID=" & g_strPubPointID & "&op=allow&referrer=pubpoint_media.asp"
  452.             else
  453.                 ToolbarButtonImage( dwLastButton ) = IMAGE_ALLOWCONNECTIONSG
  454.                 ToolbarButtonLink ( dwLastButton ) = ""
  455.             end if
  456.             ToolbarButtonAltText( dwLastButton ) = L_ALLOWUCONNECTIONS_TEXT
  457.  
  458.             dwLastButton = dwLastButton + 1
  459.             ToolbarButtonText ( dwLastButton ) = L_BUTTONDENYNEWCONNECTIONS_TEXT
  460.             if( bAllowingConnections )then
  461.                 ToolbarButtonImage( dwLastButton ) = IMAGE_DENYCONNECTIONS
  462.                 ToolbarButtonLink ( dwLastButton ) = "pp_action.asp?server=" & g_strQueryStringServer & "&ppID=" & g_strPubPointID & "&op=deny&referrer=pubpoint_media.asp"
  463.             else
  464.                 ToolbarButtonImage( dwLastButton ) = IMAGE_DENYCONNECTIONSG
  465.                 ToolbarButtonLink ( dwLastButton ) = ""
  466.             end if
  467.             ToolbarButtonAltText( dwLastButton ) = L_DENYUCONNECTIONS_TEXT
  468.  
  469. if( Session( "ShowServerList" ) ) then
  470.             dwLastButton = dwLastButton + 1
  471.             ToolbarButtonText ( dwLastButton ) = L_BUTTONRETURNTOSERVERLIST_TEXT
  472.             ToolbarButtonImage( dwLastButton ) = IMAGE_SERVERLIST
  473.             ToolbarButtonLink ( dwLastButton ) = SERVERSLIST_PATH
  474.             ToolbarButtonAltText( dwLastButton ) = L_RETURNTOSL_TEXT
  475. end if
  476.  
  477.             dwLastButton = dwLastButton + 1
  478.             ToolbarButtonText ( dwLastButton ) = L_BUTTONHELP_TEXT
  479.             ToolbarButtonImage( dwLastButton ) = IMAGE_HELP
  480.             ToolbarButtonLink ( dwLastButton ) = HELPTOKEN
  481.             ToolbarButtonAltText( dwLastButton ) = L_HELPALT_TEXT
  482.             ToolbarHelpURL = H_PPMEDIAHELPTOPIC
  483.             ToolbarNesting = H_PPLEVEL
  484.  
  485.     dwLastButton = dwLastButton + 1
  486.     DrawToolbar TRUE, dwLastButton  %>
  487.         </td>
  488.         </tr>
  489.  
  490.       </tr>
  491.     </table>
  492.     </td>
  493. </tr>
  494. </table>
  495. </form>
  496. <%
  497.     DrawCopyrightInfo
  498.     DrawStdFooter
  499.     
  500.     dwQSError = CStr( qs("error") )
  501.     if( 0 = Err.number ) then
  502.         if( 0 < Len( dwQSError ) ) then
  503.             Err.number = CDbl( dwQSError )
  504.             Session( "PageReloadedToDisplayError" ) = 1
  505.         end if
  506.     end if
  507.     AlertUserWithPopupErrorDialog
  508.     OnErrorGoBack 
  509. %>
  510. </body>
  511. </html>
  512. <% 
  513. LatchCurrentPage "pubpoints/pubpoint_media.asp", qs
  514. EndErrorHandling "pubpoint_media.asp" 
  515.  
  516. WMSServerHashASPCleanup
  517. WMSConnectASPCleanup
  518. %>